home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 174
/
174.d81
/
b.universe iii
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
2KB
|
65 lines
5 poke55,.:poke56,56:clr:poke788,49
10 dv=peek(186):ifdv<8thendv=8
12 poke53371,0
15 print"[147]":poke53280,0:poke53281,0
17 tq=ti
18 gosub60000
20 sys57812"universe font",dv,0:poke780,.:poke781,.:poke782,56:sys65493
25 poke53272,31
26 sys57812"universe3 sfx",dv,0:poke780,.:poke781,.:poke782,192:sys65493
27 ifti<tq+100then27
28 ad=49152:poke53371,0:dv=peek(186):ifdv<8thendv=8
29 sysad:sysad+12
35 sysad+9,0
40 print"[147][156] [204][207][193][196][211][212][193][210] [208][210][207][213][196][204][217] [208][210][197][211][197][206][212][211]"
42 print"[158] [176][192][192][192][174][176][192][192][192][174][176][192][192][192][174][174]@[176][192][189][174]@@@[176]@[176]@[176][192][192][192][174]
44 [153]" (NULL)@@@@(NULL)@@@(NULL)-tan=tanexp-tan<@@/tan=tanexp@@@/tantantan^
46 print" [173][192][192][192][189][173][192][192][192][189][189]@[173][192][189][189]@[173][192][174]@@[177]@@@@@[173][192][192][192][189]
50 [153]" ^@@@orortan^@or@=@^@@@orortantantan^ortantantan^ortantantan^ortantantan^
52 print" [221]@@@[221][221]@[221]@[221]@[221]@[173][174]@[176][189][171][192][192][179]@[171][192][178][192][189][173][192][192][192][174][171][192][192][179]
54 [153]" /tantantanexpexp@/tanexp@>@@/tanexp@/tantantanexpexp@/tanexp/tantantanexp/tantantanexp
55 printtab(17)"[178]@[178]@[178]"
56 printtab(17)"[221]@[221]@[221]"
57 printtab(17)"[177]@[177]@[177]"
59 print"[150] [193]stronomy [208]rograms by [195][207][210][203][217] [195][207][195][200][210][193][206]
60 [153]" 1 openatn(NULL)(NULL)(NULL)(NULL)-(NULL)str$str$(NULL)
62 print" 2 [159][211][212][193][210] [204][207][195][193][212][207][210]
64 [153]" 3 open(NULL)atn(NULL)val(NULL)(NULL)right$(NULL)val (NULL)right$val(NULL)val(NULL)
66 print" 4 [159][198][193][210][211][201][199][200][212][197][196][206][197][211][211]
68 [153]" 5 open(NULL)(NULL)(NULL)str$right$atn(NULL) (NULL)atn(NULL)val(NULL)
70 print" 6 [159][194][193][195][203] [212][207] [204][207][193][196][211][212][193][210]
80 [151]198,0
82 [161]a$:[139]a$[179]"1"[176]a$[177]"6"[167]82
90 [145][197](a$)[137]100,102,104,106,108,40000
100 f$[178]"astro-odds":[137]110
102 f$[178]"star locator":[137]110
104 f$[178]"satellite view":[137]110
106 f$[178]"farsighted":[137]110
108 f$[178]"sundial maker"
110 [158]ad[170]15
146 [153]"loadstopload"[199](34)f$[199](34)","dv
148 [153]"run"
150 [151]631,13:[151]632,13:[151]198,2:[128]
10000 d[178][194](186):n$[178]"b.universe iii":[159]15,d,15,"s0:"[170]n$:[160]15:[148]n$,d:[128]
40000 [158]ad[170]15
40005 [129]i[178]8[164]29:[151]820[170]i,i:[130]:[139]dv[177]8[175]dv[179]30[167][151]828,dv:[151]820[170]dv,8
40010 a$[178]"presenter":[141]40030:a$[178]"hello connect":[141]40030
40020 [153]"load":[151]53272,23:[151]186,8:[151]2048,0:[151]44,8:[151]43,1:[128]
40030 [129]j[178]8[164]29:i[178][194](820[170]j):[139]i[178]14[167][130]
40040 [160]2:[159]2,i,2:[160]2:[139]st[167]40060
40050 [160]15:[159]15,i,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15:[139]er[178]63[167]40070
40060 [130]:[142]
40070 a$[178]"hello connect":q$[178][199](34):[151]646,[194](53281):[153]"load":[151]53272,23
40080 [153]"loadp(NULL)2048,0:p(NULL)44,8:p(NULL)43,1:p(NULL)56,160:p(NULL)55,0:clr:l(NULL)"q$a$q$","i
40090 [153]"run:":[151]631,13:[151]632,13:[151]198,2:[128]
60000 [153]"load":z$[178]" open ":[151]214,8:[153]
60010 [153]" frefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefre":[129]i[178]0[164]11:[153]z$:[130]
60020 [153]" contposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposopen"
60030 z$(0)[178]"len(NULL)(NULL)(NULL)(NULL)'(NULL) (NULL)(NULL)right$(NULL)val(NULL)(NULL)val right$right$right$
60040 z$(2)="by [195]orky [195]ochran
60050 z$(4)[178]"(c) 1998 by mid$ & asc (NULL)ublishing, right$nc."
60060 z$(6)[178]"(NULL)his program is not shareware
60070 z$(7)="or in the public domain."
60080 z$(9)="1-800-594-3370 or 1-318-221-8718
60090 [151]214,10:[153]:[129]i[178]0[164]9:[153][163]20[171]([195](z$(i))[173]2))""z$(i):[130]:[142]